home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbc_bas.exe / UNSPLIT.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-01-01  |  1.5 KB  |  30 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1993  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.    DECLARE SUB BkScroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
  8.    DECLARE SUB DelayV (BYVAL MilliSeconds%)
  9.    DECLARE SUB DPutScreen (BYVAL DSeg%, BYVAL DOfs%, BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Page%, BYVAL Fast%)
  10.    DECLARE SUB Scroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
  11.  
  12. SUB UnSplit (Scrn%(), Fast%)
  13.    L% = LBOUND(Scrn%)
  14.    FOR tmp% = 0 TO 24
  15.       Part1% = tmp% * 80
  16.       Scroll 1, 1, 25, 20, 1
  17.       DPutScreen VARSEG(Scrn%(L% + Part1%)), VARPTR(Scrn%(L% + Part1%)), 25, 1, 25, 20, 0, Fast%
  18.       Part2% = 1940 - Part1%
  19.       BkScroll 1, 21, 25, 40, 1
  20.       DPutScreen VARSEG(Scrn%(L% + Part2%)), VARPTR(Scrn%(L% + Part2%)), 1, 21, 1, 40, 0, Fast%
  21.       Scroll 1, 41, 25, 60, 1
  22.       Part3% = Part1% + 40
  23.       DPutScreen VARSEG(Scrn%(L% + Part3%)), VARPTR(Scrn%(L% + Part3%)), 25, 41, 25, 60, 0, Fast%
  24.       BkScroll 1, 61, 25, 80, 1
  25.       Part4% = 1980 - Part1%
  26.       DPutScreen VARSEG(Scrn%(L% + Part4%)), VARPTR(Scrn%(L% + Part4%)), 1, 61, 1, 80, 0, Fast%
  27.       DelayV 10
  28.    NEXT
  29. END SUB
  30.